Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/sml_nj/93src.lha/src/cps/nullglue.sml

Text File | 1993-01-27 | 607 b | 19 lines

(* nullglue.sml
 *
 * Copyright 1989 by AT&T Bell Laboratories
 *)
structure IntNull = IntShare(
structure Machm = struct
                val _ = System.Control.interp := true;
                fun generate lexp = ErrorMsg.impossible "no code generator!"
             end
  val fileExtension = ".nul"
  functor Debugger = BogusDebugger);
structure IntNullD = IntShare(
structure Machm = struct
                val _ = System.Control.interp := true;
                fun generate lexp = ErrorMsg.impossible "no code generator!"
             end
  val fileExtension = ".nul"
  functor Debugger = RealDebugger);